#!/usr/bin/perl

my $str = "this is an apple";

$str =~ tr/a-z/A-Z/; #transliteration. Change little case to big one.
print $str;
